home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pay1pers.arc / PERSPAY1.PRG < prev    next >
Encoding:
Text File  |  1987-01-15  |  2.4 KB  |  93 lines
  1. * MAIN PROGRAM     PERSPAY1.PRG
  2. * WRITTEN BY       MARTIN J. MICHAELSON
  3. * LAST UPDATE      01/15/87
  4. * VERSION          2.6
  5. * dBASE III        PLUS v1.1
  6. *
  7. * This is the main driver for the your - PAYROLL SYSTEM
  8. SET PROC TO
  9. CLEAR
  10. CLEAR ALL
  11. SET COLOR TO GR+/B,
  12. @ 10, 18 SAY "EMPLOYEE / PAYROLL MENU LOADING"
  13. SET ESCAPE OFF
  14. SET BELL OFF
  15. SET TALK OFF
  16. SET INTENSITY ON
  17. SELECT 1
  18. USE PAY_PERS INDEX PERSONS,EMPNO,DEPT
  19. SELECT 3
  20. USE PAY_YTD INDEX EMPNMYTD
  21. PUBLIC choice,choice2,string,qtr
  22. DO WHILE .T.
  23.     DO PAYMENU
  24.     store ' ' to choice
  25.     @ 22,37 get choice
  26.     read
  27.     DO CASE
  28.         CASE choice = '1'
  29.           do PAYemps
  30.         CASE choice = '2'
  31.           select 1
  32.           pack
  33.         CASE choice = '3'
  34.           do newqtr
  35.         CASE choice = '4'
  36.           DO wages
  37.         CASE choice = '5'
  38.           CLEAR
  39.           STORE SPACE(8) TO WEEKEND
  40.           @ 4,08 SAY "REPORT FOR WEEK ENDING:" GET WEEKEND ;
  41.                  PICTURE '99/99/99'
  42.           READ
  43.           SELECT 2
  44.           SET PRINT ON
  45.           REPORT FORM PAYWEEK FOR WEEK_END = "&WEEKEND" NOEJECT
  46.           SET PRINT OFF
  47.         CASE choice = '6'
  48.           DO QTRLY
  49.         CASE choice = '7'
  50.           SELECT 3
  51.           SELECT 1
  52.           SET INDEX TO DEPT,EMPNO
  53.           SET RELATION TO EMP_NMBR INTO C
  54.           REPORT FORM YTD TO PRINT NOEJECT PLAIN
  55.         CASE choice = '8'
  56.           DO W2FORM
  57.         CASE choice = '9'
  58.           CLEAR
  59.           @ 0,0 SAY "TYPE `RESUME' TO GO TO MAIN MENU"
  60.           SUSPEND
  61.           LOOP
  62.         CASE choice = '0'
  63.           text
  64.  
  65.                        PAYROLL SYSTEM CLOSING MENU
  66.  
  67.                        1 - Quit to dBASE III
  68.                        2 - Quit to DOS
  69.                        3 - Return to Program
  70.  
  71.                        Press < 1, 2, or 3 >
  72.           endtext
  73.           STORE 0 TO choice2
  74.           @ 15,43 GET choice2 PICTURE "9" RANGE 0,3
  75.           READ
  76.           DO CASE
  77.             CASE choice2 = 1
  78.               CLEAR
  79.               CLEAR ALL
  80.               CANCEL
  81.             CASE choice2 = 2
  82.               CLOSE DATA
  83.               SET DEFA TO C:
  84.               DO EXIT
  85.           ENDCASE
  86.         OTHERWISE
  87.           @ 23,10 SAY "Not a Menu Option... Try Again."
  88.           STORE 1 TO time
  89.           DO WHILE time <15
  90.             STORE 1+time TO time
  91.           ENDDO
  92.     ENDCASE
  93. ENDDO